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PRINCIPIQS BASICOS DO PAC 
LIGANDO PONTOS 

MOV1MENTACAO DA FIGURA 

EXPANSAO , CONTRA CAO 

E RQTAC AO 



A construcao de imagens graficas no 
computador e, quase sempre, urn 
processo dificil. Projeto Assistido 
pelo Computador (PAC) podera 
simplificar bastante o seu trabatho. 



Existem sistemas desiinados a facili- 
tar a elaboracao de desenhos cujos com- 
ponentes se repetem muitas vezes. O 
projeto de um supermercado, por exem- 
plo, exige que se distribua, da melhor 
forma possivel, uma serie de objetos 
identicos — prateleiras, refrigeradores 
etc. — em uma certa area. Esse tipo de 
sistema, denominado Projeto Assistido 
pelo Computador (PAC), pode se apre- 
sentar com varios niveis de sofisticacao, 
Mas, qualquer que seja seu grau de com- 
plexidade, o PAC baseia-se em duas 
operacoes basicas: tracar retas e remo- 
delar figuras prefixadas. 

Este artigo ira ajuda-lo a const ruir 
duas versoes simples de um PAC. 



TRACANDO RETAS 




A tecnica que examinaremos agora 
reproduz a maneira mais simples de se 
executar um desenho com o auxflio de 
um lapis e uma regua. 

Primeiro, fazemos o traco inicial. De- 
pois, a partir de uma das extremidades 
desse traco, desenhamos outra reta e as- 
sim por diante, sempre ligando a ponta 
do ultimo segmento a um ponto imagi- 
nario. No computador, fixamos um 
ponto na tela e levamos o cursor ate a 
posicao onde um segundo ponto sera fi- 
xado. Este ira determinar a reta que de- 
ve ser tracada. 

Para facilitar ainda mais o processo, 
o computador traca uma reta a cada no- 
va posicao definida pelo cursor, apagan- 
do a anterior. Ao chegar a posicao de- 
finitiva, o usuario digita aigum ripo de 
codigo destinado a impedir que o com- 
putador apague a ultima linha, deixan- 
do-a ftxa na tela. Em seguida, pode-se 
movimentar o cursor para outro ponto 
qualquer. 

Experirnente fazer desenhos com o 
programa que se segue. 



10 BORDER 0: PAPER 0: INK 7: 

CLS 

15 LET iniclo=8Q: LET eatica= 

130: LET deaenha=210: LET fix. 

a-24C* 

17 DRAW 0.175: DRAW 255,0; 

DRAW 0,-175: DRAW -255,0 

20 gosub inicio 

40 GOSUB eBtica 

SO IF INKEYSO'q" THEN GOTO 
40 

60 STOP 

90 OVER 1 
100 LET A-12B: LET y-86 
115 PLOT x.y 
120 RETURN 

140 IF INKEYS"" " THEN GOSUB 
fixa: GOTO 150 
145 GOSUB deaenha 
150 IF INKEY3="l" THEN LET X- 
x-1 

160 IF INKEY$="x" THEN LET x = 
x+1 

170 IF INKEY3-"k" THEN LET y- 
y+1 



180 IF INKEYS-"m" TB£N LET y- 

y-1 

190 GOSUB deaenha 

200 RETURN 

220 PLOT x,y: DRAW x-PEEK 

23677, y-PEEK 23678 

230 RETURN 

2 50 OVER 0: GOSUB deaenha 

255 OVER 1 

280 RETURN 

D 

10 PCLEAR 8:PMODE 4 , 5 : PCLS : PMOD 

E 4,1: PCLS: SCREEN 1,1 

20 V-24?:CX-127:CY-95:x-127:Y-9 

5 

30 GOSUB 100 

40 FOR K-l TO 4:PCOPY K+4 TO K: 

NEXT 

50 IF PEEK (338)0191 THEN 30 

60 CLS: END 

100 IF PEEK (345) -V GOSUB 300 

110 IF PEEK(341)-V AND Y>0 THEN 

Y-Y-l 
120 IF PEEKU42J-V AND Y<191 TH 
EN Y=Y+1 



130 IF PEEKC343)-V AND X>0 THEN 

X-X-l 
140 IF PEEK ( 344 ) -V AND X<255 TH 
EN X-X+l 

200 LINE(CX.CY)~{X.Y) , PSET 
210 RETURN 
300 GOSUB 200 

310 FOR K-l TO 4:PC0PY K TO K+4 
:NEXT 

320 CX*X:CY-Y 
330 RETURN 



GD 



10 HGR2 

20 CX - 140 :CY - 96 :X - CX:Y - 

CY 

100 GET AS 

102 IF AS - " " THEN CX - X : CY 
= Y: GOTO 110 

103 HCOLOR- 0: HPLOT CX.CY TO 
X.Y 

110 IF A$ - "Z" AND X > 1 THEN 

X - X - 2 
120 IF AS =■ "X" AND X < 278 TH 
EN X - X + 2 

130 IF AS - "■" AND Y < 190 TH 
EN Y = Y + 2 
140 IF AS - " ! " AND Y > 1 THEN 

Y - Y - 2 
155 IF A$ - "S" THEN STOP 
160 HCOLOR- 3: HPLOT CX.CY TO 
X.Y 
170 GOTO 100 



E] 



10 HGR2 

20 CX - 140:CY - 96:X - CX:Y - 

CY 

100 GET AS 

102 IF AS = " " THEN CX = X : CY 
- Y: GOTO 110 

103 HCOLOR= 0: HPLOT CX.CY TO 
X> Y 

110 IF AS - CHRS (B) AND X > 

1 THEN X = X - 2 

120 IF AS - CHBS (21) AND X < 

27B THEN X - X + 2 
130 IF A$ - CHRS (113} AND Y 
< 190 THEN Y - Y + 2 
140 IF AS - CHRS (112) AND Y 
> 1 THEN Y - Y - 2 
155 IF AS ■ "S" THEN STOP 
160 HC0LOR= 3: HPLOT CX.CY TO 
X, Y 
170 GOTO 100 



M 
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10 SCREEN 2 

2 CX=128:CY-96:X-CX:Y=CY 

100 AS=INKEYS:IF AS="" THEN 100 

103 IF ASO" " THEN LINE (CX.CY 

)-(X,Y),4 ELSE CX»X:CY-=Y 

110 IF ASC(AS)-29 AND X>2 THEN 

X-X-2 

120 IF ASC<A$)-28 AND X<255 THE 

N X-X+2 



130 IF ASC(AS)=»31 AND Y<191 THE 

N Y=Y+2 

140 IF ASC{AS)-30 AND Y>1 THEN 

Y=Y-2 

160 LINE (CX.CY)-(X.Y) .11 

170 GOTO 100 

O funcionamento do programa e bem 
simples. Ele fixa um ponto no centro da 
tela e outro em uma posicao determina- 
da por quatro teclas — Z (esquerda), X 
(direita), K (acima) e M (abaixo). O AP- 
PLE usa ; (acima), . (abaixo) e S (para 
interromper o programa). Os microcom- 
putadores das linhas MSX e o TK-2000 
utilizam as teclas de controle do cursor 
(ftechinhas), 

Uma reta e tracada continuaraente 
entre os dois pontos assim determina- 
dos. Quando alcangar sua posicao defi- 
nitiva, ela sera fixada na tela, bastando, 
para isso, que se pressione a barra de es- 
paco. Voce podera, entao, prosseguir 
em outra direcao, usando as mesmas 
quatro teclas. 

Digite agora estas linhas adicionais 
para conseguir o efeito de tirar o lapis 
do papel. 



15 LET inicio-80: LET eatiea- 

130: LET degenha=210 : LET fix 

a=240: LET apaga=210 

17 GOSUB ^paga 
144 IF INKEYS-"d" THEN GOSUB 
apaga: GOTO 150 
310 CLS 

320 DRAW 0,175: DRAW 255,0; 
DRAW 0,-175: DRAW -255.0 
330 GOSUB inicio 
340 RETURN 

Q 

105 IF PEEK (339) -191 THEN PMODE 
4 , 5 : PCLS : PMODE 4,1 

301 AS^INKEYS 

302 AS-INKEY$:IF AS-"" THEN 302 
304 IF AS-"D" THEN 320 



H3E1 

150 IF AS 

- Y 

105 IF AS 

- Y 



*D" THEN CX «= X:CY 



"D" THEN CX - X:CY 



Agora, ao pressionar a tecla D, a ul- 
tima linha tracada sera apagada. O pon- 
to onde o cursor se encontra sera defi- 
nido como inicial. 



M0NTAGEM DE UM DESENH0 



Alguns tipos de PAC apresentam em 
um menu varias figuras previamente de- 
finidas. Se o problema fosse a decora- 
cao de uma casa, por exemplo, o menu 
incluiria os desenhos de mdveis, esqua- 
drias e outros elementos, que seriam 
transportados para a tela e ajustados a 
vontade ao projeto do decorador, Para 
tais ajustes, e possi'vel recorrer a amplia- 
coes, reducoes e rotacoes. 

O programa a seguir oferece, em sen 
menu, cinco figuras geometricas. Elas 
podem ser fixadas na tela e manipula- 
das de acordo com as instrucoes acres- 
centadas apds a listagem. 



10 BORDER 0: PAPER 0: INK 7: 
OVER : CLS 

15 LET inicio=100: LET plck = 
270: LET poHicao=430: LET mod 
ifica-490: LET seta-390: LET 
desenha=64Q: LET fixa=70Q: 
LET limpa-750: LET checa-820: 
LET triang=B60: LET quadr=*930 
: LET retang-1010: LET pent= 
1090: LET hex=118Q 
17 GOSUB limpa 




40 GOSUB pick 

50 GOSUB posicao 

60 GOSUB modifies 

70 IF INKEYSO'q" THEN GOTO 
40 

80 STOP 
110 OVER 

120 LET x-30: LET y-50; LET ph 
i"0: LET acal-1 
130 LET roex=120: LET flag-0: 
LET aelec=0 

140 LET c-aca.l*COS (phi) 
150 LET a-acal*SIN (phi) 
170 LET tx=32: LET ty-25 : 
GOSUB triang 

190 LET tx=?0: LET ty=25 : 
GOSUB quadr 

210 LET tx-120: LET ty-25: 
GOSUB re tang 

220 LET tx-180: LET ty-25: 
GOSUB pent 

230 LET tx<=230: LET ty-25: 
GOSUB hex 
240 OVER 1 



250 PRINT OVER 1; INK 6; AT 20 X+3 
, Bex/8;"*" 570 

260 RETURN y+3 

300 GOSUR aeta 580 

310 GOSUB checa y-3 

320 IF CODE INKEY$=8 THEN LET 590 
mex-mex-8 

330 IF CODE INKEY$=9 THEN LET 
M JfMl *8 
340 GOSUB seta 

350 IF INKEYS-"B" THEN LET fl 
aq"l 

360 IF flag=0 THEN GOTO J00 
370 GOSUB aeta 
380 RETURN 

400 PRINT INK 6; OVER 1;AT 20 650 
f , *ex/8 ; " " " ana 

410 RETURN 

440 IF mex<40 THEN LET aelec- 
1 



IF INKEYS-"*" THEN LET Y- 
IF INKEYS-"m" THEN LET y- 



THEN LET ac 



IF INKEYS-'n" 
al=acal*l.l 
600 IF INKEY3 
al-Bcal/1.1 
610 IF INKEYS 
i-phi+<6*PI/180) 
620 IF INKEYS'-'b 
i-phl-<6*PI/180) 
630 RETURN 
645 LET tx»X: LET ty-y 

IF aelec-1 THEN GOSUB tri 



3" THEN LET ac 



h" THEN LET ph 



THEN LET ph 



770 DRAW 0,175: DRAW 255.0 

DRAW 0.-175: DRAW -255,0 

780 GOSUB inicio 

790 RETURN 

620 REM checa 

830 IF INKE¥S-"c 

1 impa 

840 IF INKEYS«"e 

850 RETURN 

860 REM triang 

870 PLOT INVERSE 

880 PLOT -7*a+PEEK 

PEEK 23678 

890 DRAW -6*c+ll*B 

900 DRAW 12*c,10*b 

910 DRAW -6*c-ll*s 

920 RETURN 



THEN GOSUB 



THEN STOP 



1 ; tx.ty 
23677, 6*c+ 

,-5*s-9*c 

, -5*s+9*e 







450 IF »ex>-40 AND mex<70 THEN 

LET eelec-2 
460 IF mx>-70 AND siex<15Q 
THEN LET selec-3 
465 IF mex>-150 AND aex<180 
THEN LET aelec-4 
470 IF ■ex>-180 THEN LET aele 
c-5 

480 RETURN 

510 IF INKEY$-"c" THEN GOSUB 
liwpa: GOTO 517 
515 GOSUB deaenha 

517 IF INKEY$-=" " THEN GOSUB 
fixa: GOTO 520 

518 GOSUB deaenha 
LET c-scal*COS Cphi) 
LET a-Bcal*SIN (phi) 
IF INKEYS-**' THEN LET x- 



520 
540 
550 
x-3 
560 



660 

dr 

670 

ang 

675 

t 

680 

685 

690 

700 

710 

714 

715 



717 

720 



IF aelec-2 THEN GOSUB Qua 
IF selec-3 THEN GOSUB ret 



IF aelec-4 THEN GOSUB pen 



IF selec-5 
FOR n-1 TO 
RETURN 
REM fixa 
FOR n-1 TO 
IF INKEY3="d" 
IF INKEYSO'd 



THEN GOSUB 
30 : NEXT n 



hex 



100: NEXT n 
THEN 
THEN 



OVER 1 
OVER 



GOSUB desenha 
PRINT AT 20,1 I 



OVER 1 



REM quadr 

PLOT INVERSE l;tx,ty 

PLOT 6*c-6*s+PEEK 23677,5* 
g+5*c+PEEK 23678 
960 DRAW -12*c,-10*a 

DRAW 12*a, -10*c 

DRAW 12*c,10*s 

DRAW -12*s,10*c 

RETURN 

REM retana 

PLOT INVERSE litx.tY 

PLOT 12*c-6*a+PEEK 23677,1 
0*a+5*c+PEEK 23678 
1040 DRAW -24*c,-20*a 

DRAW 12*a,-10*c 

DRAW 24*c,20*g 

DRAW -lZ*s,10*c 

RETURN 

REM pent 

PLOT INVERSE lstx^y 

PLOT -10*s+PEEK 23677, 9«e+ 

23678 



930 
940 

950 



970 
980 
990 
1000 
1010 
1020 
1030 



IF INKEY$-"x" THEN LET x- 



730 GOSUB inicio 
740 RETURN 

760 CLS 



1050 
1060 
1070 
1080 
1090 
1100 
1110 
PEEK 
1120 
1130 
1140 



DRAW -10*c+7*a,-8*s-6*c 
DRAW 4*c+13*a,3*3-ll*c 

DRAW 12*c,10*a 



10GRAMACA0 BASIC 



1150 DRAW 4*c-13*s,3*b+11*c 

1160 DRAW -10*c-7*s,-S*g+6*c 

1170 RETURN 

1160 REM hex 

1190 PLOT INVERSE l;tx,ty 

1200 PLOT -12*a+PEEK 23677, 10*c 

+ PEEK 23678 

1210 DRAW -10*c+6*a,-8*3-5*c 

1220 DRAW 12*a,-10*c 

1230 DRAW 10*c+6*a.8*s-5*c 

1240 DRAW 10*c-6*a,8*a4-5*c 

1250 DRAW -12*g, 10*c 

1260 DRAW -10*c-6*a.-8*B+5*c 

1270 RETURN 

O programa funciona da maneira 
abaixo deserita: 

A sub-rotina inicio, compreendida 
entre as linhas 1 10 e 260, define os va- 
lores de algumas variaveis e desenha as 
figuras-padrao na parte mais baixa da 
tela, chamando, para tanto, as sub-ro- 
tinas necess arias. 

Da linha 300 a linha 380, o compu- 
tador IS as teclas que movem a seta pa- 
ra a direita e para a esquerda e a tecla 
S, que faz corn que a figura escolhida 
apareca no centro da tela. 

As linhas 400 e 410 (sub-rotina seta) 
reimprimem a seta toda vez que uma te- 
cla e pressionada. 

As linhas 440 a 480 compoem a sub- 
rotina posicao. Ela checa a posicao da 
seta em relacao as figuras e define a va- 
riivel ** figura". 

A sub-rotina modifica encontra-se 
entre as linhas 510 e 630. A figura esco- 
lhida e redesenhada de acordo com as 
teclas pressionadas. Ela pode ser movi- 
mentada usando-se as teclas Z, X, K e 
M; N e J ampliam e reduzem a figura; 
H e B promovem a rotacao no sentido 
horario e anti-horario. A barra de espa- 
50 fixa a figura na tela. 

As figuras sao desenhadas pela com- 
binacao das sub-rotinas desenha, entre 
as linhas 645 e 690, com as sub-rotinas 
que contem a f6rmula de cada uma de- 
las. A variavel "figura" indica ao com- 
putador qual destas sera usada. 

A sub-rotina fixa, entre as linhas 7 1 
e 740, fixa a figura na tela quando a te- 
cla D e apertada. Nas linhas 760 a 790 
esta a sub-rotina limpa, que e chamada 
quando se pressiona C. 

A sub-rotina checagem — hnhas 820 
a 840 — verifica se a tecla E foi aciona- 
da para interromper o programa. 



a 



10 PCLEAR 8:PM0DE 4, 5 :PCLS :PMOD 

E 4 , 1 :PCLS: SCREEN 1,1 
20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
50 GOSUB 4000 



70 IF 1NKEY$0"Q" THEN 40 

80 CLS:END 

1000 X-20:Y«131:PH=»0:SC-1 

1010 ME=122:ST«0:V1-247:V2=253 

1020 C-SC:S=0: COLOR 5 

1030 X-40:Y-177:GOSUB 5000 

1040 X=8Q:Y=174;GOSUB 5100 

1050 X-120:G0SUB 5200 

1060 X-160: Y-1?0:GOSUB 5300 

1070 X-200:GOSUB 5400 

1080 FOR K-l TO 4:PCOPY K TO K+ 

4: NEXT 

1090 X-127:¥»85 

1100 RETURN 

2000 COLOR 0:GOSUB 2500 

2010 AS-INKEYS: GOSUB 4500 

2020 IF A$=CHRS<8) AND ME>32 TH 

EN ME-ME-10 



H=SC*SIN{PH) 
IF PEEK(343) ; 
PEEK (3.44)* 
PEEK(341)> 
PEEKC342): 
PEEK(343) i 



IF 
IF 
IF 
IF 



IF PEEK(344) 



4040 

4050 

4060 

4070 

4080 

4090 

*1 .1 

4100 

/l.l 

4110 IF PEEK(341) 

+ATN<l)/7.5 

4120 IF PEEKC342) 

-ATN£l)/7.5 

4130 FOR K-l TO 4 

■ NEXT 

4150 IF PEEK(33B) 

N ELSE 4000 

4500 IF A$-CHRSU 



VI THEN X-X-l 
VI THEN X=X+1 
VI THEN Y-Y-l 
VI THEN Y-Y+l 
V2 THEN SC=SC 

-V2 THEN SC-SC 

-V2 THEN PH-PH 

-V2 THEN PH-PH 

:PC0PYK+4 TO K 

-VI THEN RETUR 

21 THEN PCLS:G 




2030 IF A$=CHRS(9) AND ME<212 T 

HEN ME=ME+10 

2040 COLOR 5: GOSUB 2SO0 

2050 IF A$<>"S" THEN 200O 

2060 COLOR 5:GOSUB 2500 

2070 RETURN 

2500 DRAU"BM"+STR$(ME)+" , 190U5N 

C2F2" 

2510 RETURN 

3000 SL=5:IF ME<192 THEN SL-4 

3010 IF ME<152 THEN SL-3 

3020 IF ME<102 THEN SL=2 

3030 IF ME<62 THEN SL-1 

3 040 RETURN 

4000 ON SL GOSUB 5000,5100,5200 

,5300,5400 

4010 IF PEEK (339J-191 THEN PCLS 

: GOSUB 1000: RETURN 

4020 IF PEEK (345) =V1 THEN FOR K 

=L TO 4:PCOPY K TO K+4: NEXT: RET 

URN 

4030 C-SCCOS(PH) 



OSUB 1000 

4510 IF AS»"Q" THEN CLS : END 

4520 RETURN 

5000 LINE(X-7.2*S,Y-7.2*C)-(X-6 

*C+3 . 6*3 , Y+6*S+3 . 6*C) , PSET 

5010 LINE - (X+6*C+3.6*S,Y-6*S+3 

,6*C) ,PSET 

5020 LINE-(X-7.2*S.Y-7.2*C) , PSE 

T 

5030 RETURN 

5100 LINE(X+6*G-6*S,Y-6*S-6*C)- 

(X-6*S-6*C,Y+6*S-6*C) ,PSET 

5110 LINE -(X+6*S-6*C,Y+6*S+6*C 

) , PSET 

5120 LINE -<X+6*S+6*C,Y+6*C-6*S 

) ,PSET 

5130 LINE - <X+6*C-6*S,Y-6*S-6*C 

) , PSET 

5140 RETURN 

5200 LINE (X+12*C-6*S,Y-6*C-12* 

S) - (X-12*C-6*S , Y-6*C+12*S) , PSET 

5210 LINE -<X-12*C+6*S,Y+6*C+12 



■{X+12*C+6*S,Y+6*C-12 
■<X+12*C-6*S.Y-6*C-12 



* 



*S) ,PSET 

5220 LINE 

*S) ,PSET 

5230 LINE 

*S) ,PSET 

5240 RETURN 

5300 LINE (X-10.2*S,Y-10. 2*C)-( 

X-9.8*C-3. 2*S,Y-3. 2*C+9.8*S) .PS 

ET 

5310 LINE -{X-6*C+1Q.2*S,Y+10.2 

*C+6*S) . PSET 

5320 LINE -<X+6*C+10.2*S,Y+10.2 

*C-6*S) .PSET 

5330 LINE -{X+9.8*C-3.2*S,Y-3.2 

*C-9.8*S) , PSET 

5340 LINE -{X-10.2*S,Y-10. 2*C) , 

PSET 

5 350 RETURN 

5400 LINE(X-12*5,Y-12*C)-<X-10. 

4*C-6*S,Y-6*C+10.4*S) , PSET 

5410 LINE -£X-10.4*C+6*S,Y+6*C+ 

1Q.4*S) .PSET 

5420 LINE - (X+12*S.Y+12*C) .PSET 

5430 LINE -(X+10.4*C+6*S,Y+6*C- 

10.4*S) .PSET 

5440 LINE -(X+1Q.4*C-6*S,Y-6*C- 

10. 4*8) , PSET 

5450 LINE -(X-12*S,Y-12*C) .PSET 

5460 RETURN 



PH - : SC - 1 

1010 ME - 122 

1020 C - SC:S - 

1030 X - 40 :X - 177: GOSUB 5000 



1040 X - 80 :Y 



174: GOSUB 5100 



1050 X - 120: GOSUB 5200 

1060 X - 160 :Y - 170: GOSUB 530 



1070 X - 200: GOSUB 5400 

1090 X - 127:Y - 85 

1100 RETURN 

2000 HCOLOR- 3: GOSUB 2500 

2005 GET A3 

2010 HCOLOR- 0: GOSUB 2500 

2020 IF AS - "2" AND ME > 32 T 

HEN ME - ME - 10 

2030 IF AS - "X" AND ME < 212 

THEN ME - ME + 10 

2050 IF AS < > *S' THEN 2000 

2070 RETURN 

2500 HPLOT ME, 190 TO ME, 182 TO 

ME - 5.185: HPLOT ME, 182 TO ME 

+ 5.185 
2510 RETURN 

3000 SL - 5: IF ME < 192 THEN S 
L - 4, 

3010 IF ME < 152 THEN SL - 3 
3020 IF ME < 102 THEN SL - 2 
3030 IF ME < 62 THEN SL - 1 
3040 RETURN 

4000 HCOLOR- 3: ON SL GOSUB 50 
00.5100,5 200,5300,5400 



4010 GET A3 

4015 HCOLOR- 0: ON SL GOSUB 50 
00,5100,5200.5300,5400 
4020 IF A$ - " ' THEN HCOLOR- 
3: ON SL GOSUB 5000,5100,5200. 
5300.5400: RETURN 
4030 C - SC * COS (PH) 
SC * SIN (PH) 

'2- THEN X - X - 



4040 S 

4050 

3 

4060 

3 

4070 

3 

4080 

3 

4090 

* 1.1 

4100 

/ 1-1 

4110 



IF AS - 

IF A3 ■ 

IF AS - 

IF AS - 

IF AS - 

IF AS - 



-M" 
"N" 



IF AS 

+ ATN (1) / 7.5 
4120 IF AS - "L" 
- ATN (1) / 7.5 
4140 IF AS - "C" 



IF A3 



THEN X - X + 
THEN Y - Y - 
THEN Y - Y + 

THEN SC - SC 
THEN SC - SC 
THEN PH - PH 
THEN PH = PH 
THEN GOTO 10 
THEN TEXT : 



4145 

END 

4150 GOTO 4000 

5000 HPLOT X - 7.2 * S.Y - 7.2 
*CTOX-6*C+3.6*S,Y+ 
6*S+3.6*CTOX+6*C+ 
3.6 * S.Y -6*S+3.6*C 

5010 HPLOT X+6*C+3.6*S 

,Y-6*S+3.6*CTOX-7.2 
* S,Y - 7.2 * C 

5030 RETURN 

5100 HPLOT X+6*C-6*S,Y 
- 6 * S - 6 * C TO X - 6 * S - 
6*C,Y + 6*S-6*CTOX + 
6*S-6*C,Y+6*S+6* 

C 

5110 HPLOT X+6*S-6* C,Y 
+ 6*S + 6*CTOX + 6*S + 




10 HGR2 

20 GOSUB 1000 

40 GOSUB 2000 

SO GOSUB 3000 

60 GOSUB 4000 

70 GOTO 20 
1000 HCOLOR- 



20 :Y 



6 * CJ + 6 * C - 6 * S TO X + 
6*C-6*S,¥-6*S-6* 

C 

5140 RETURN 

5200 HPLOT X+12*C-6*S, 

Y - 6 * C - 12 * S TO X - 12 * 
C - 6 * S,Y - 6 * C + 12 * S TO 

X-12*C+6* S.Y + 6 * C + 

12 * S 
5210 HPLOT X-12*C+6*S, 
Y+6*C+12*ST0X+12* 
C + 6 * S,Y + 6 * C - 12 * S TO 

X+12*C-6*S,Y-6*C- 

12 * S 
5240 RETURN 

5300 HPLOT X - 10.2 * S.Y - 10 
,2*CTOX-9.8*C~3.2*S 
,Y - 3.2 » C + 9.S * S TO X - 6 

* C + 10.2 * S.Y + 10.2 * C + 
6 * S 

5310 HPLOT X-6*C+10.2* 
S.Y+ 10,2 * C + 6 * S TO X + 6 

* C + 10.2 * S,Y + 10.2 * C - 
6*STOX+9.B*C-3.2*S, 
Y-3.2*C-9.8*S 

5320 HPLOT X+9.8*C-3.2* 

S,Y - 3.2 *C - 9.8 * S TO X - 

10.2 * S.Y - 10.2 * C 
5350 RETURN 
5400 HPLOT X - 12 * S.Y - 12 * 

C TO X - 10.4 * C - 6 * S,Y - 
6*C+10.4*STOX-10.4* 
C + 6 * S.Y + 6 * C + 10.4 * S 
T0X+12*S,Y+12*C 
5410 HPLOT X + 12 * S,Y + 12 * 

C TO X + 10.4 * C + 6 * S.Y + 
6 * C - 10.4 * S TO X + 10.4 * 
C - 6 * S.Y - 6 * C - 10.4 * S 
5420 HPLOT X + 10.4 * C - 6 * 
S,Y - 6 * C - 10.4 * S TO X - 1 
2 * S,Y - 12 * C 
5460 RETURN 

(3D 

O programs do TK-2000 e igual ao 
do Apple, com estas modificac5es; 

2020 IF AS ■ CHRS (8) AND ME 

> 32 THEN ME = ME - 10 

2030 IF AS - CHRS (21) AND ME 

< 212 THEN ME ■ ME +■ 10 

4050 IF AS - CHR$ (8) THEN X 
= X - 3 

4060 IF AS - CHRS (21) THEN X 

- X + 3 

4070 IF AS - CHR$ (112) THEN 

Y - Y - 3 

4060 IF AS = CHRS (113) THEN 

Y = Y + 3 



tfH 



■ 



10 SCREEN 2 
20 GOSUB 1000 
40 GOSUB 2000 
50 GOSUB 3000 
60 GOSUB 4000 
7 GOTO 20 
1000 COLOR 14 
C-l 



X-20:Y-131:PH-0:S 



1010 ME-122 
1020 C-SC:S=0 

1030 X"40:Y-177:GOSUB 5000 
1040 X-80:Y-174:GOSUB 5100 
1050 X-120:GOSUB 5200 
1060 X-16O:Y-170:GOSUB 5300 
1070 X»200:GOSUB 5400 
1090 X=127:Y-B5 
1100 RETURN 

2000 COLOR 14: GOSUB 2500 
2005 AS-INKEYS:IF A$-"" THEN 20 
05 

2010 COLOR 4: GOSUB 2500 
2020 IF AS-CHRS(29) AND ME>32 T 
HEN ME-ME-10 

2030 IF AS=CHR$(28) AND ME<212 
THEN ME-ME+10 
2050 IF A$0"S" THEN 2000 
20 70 RETURN 

2500 DRAM"BM"+STRS(ME)+",190U5N 
G2F2" 

2510 RETURN 

3000 SL-5;IF ME<192 THEN SL=4 
3010 IF MEC152 THEN SL=3 
3020 IF ME<102 THEN SL=2 
3030 IF ME<62 THEN SL=1 
3040 RETURN 

4000 COLOR 14: ON SL GOSUB 5000, 
5100.5200,5300,5400 
4010 AS=INKEYS:IF A$«"" THEN 40 
10 

4015 COLOR 4:ON SL GOSUB 5000,5 
100,5200,5300,5400 
4020 IF A$»" " THEN COLOR 14: ON 
SL GOSUB 5000,5300,5200,5300,5 
400; RETURN 
40 30 C=SC*C0S(PH) 
4040 S-SC*SIN(PH) 
40S0 IF AS-CHR$<29) THEN X-X-3 
4060 IF AS-CHRS(28) THEN X-X+3 
4070 IF AS=CHRS{30) THEN Y-Y-3 
4080 IF AS-CHR$(31) THEN V-Y+3 
4090 IF AS="M" THEN SC«SC*1.1 
4100 IF A$-"N" THEN SC-SC/1.1 
4110 IF AS-'K" THEN PH-PH+ATNU 
3/7.5 

4120 IF AS-"L" THEN PH=PH-ATN(1 
)/7.5 

4140 IF AS-'C THEN CLS:GOTO 20 
4145 IF AS-"F" THEN COLOR 15:EN 
D 

4150 GOTO 4000 

5000 LINE <X-7.2*S,Y«7.2*C)-(X- 
6*C+3 . 6*S , Y+6*S+3 . 6*C) 
5010 LINE -(X+6*C+3.6*S,Y-6*S+3 
.6*C) 

5020 LINE -(X-7.2*S,Y-7.2*C) 
5030 RETURN 

5100 LINE (X+6*C-6*S.Y-6*S-6*C) 
- (X-6*S-6*C , Y+6*S-6*C) 
5110 LINE -(X+6*S-6*C,Y+6*S+6*C 
) 
5120 LINE -(X+6*S+6*C,Y+6*C-6*S 

) 

5130 LINE -£X+6*C-6*S.Y-6*S-6*C 

) 

5140 RETURN 

5200 LINE (X+12*C-6*S,Y-6*C-12* 

3) - {X-12*C-6*S , Y-6*C+12*S) 

5210 LINE -(X-12*C+6*S.Y+6*C+12 

*S) 

5220 LINE -(X+12*C+6*S,Y+6*C-12 

*S) 



5230 LINE -IX+12*C-6*B,Y-6*C-12 

*S) 

5240 RETURN 



5300 LINE 


(X-10.2*S,Y-10.2*C)-( 


X-9.8*C-3. 


2*S,Y-3.2*C+9.8*S) 


5310 LINE 


- (X-6*C+10 . 2*S , Y+10. 2 


*C+6*S) 




5320 LINE 


- (X+6*C+10.2*S, Y+10.2 


*C-6*S) 




5330 LINE 


-(X+9.B*C-3.2*S,Y-3.2 


*C-9.8*S) 




5340 LINE 


-(X-10.2*S.Y-10.2*C) 


5350 RETURN 


5400 LINE 


(X-12*S.Y-12*C)-(X-10 


.4*C-6*S,1 


-6*C+10,4*S) 


5410 LINE 


- (X-10 . 4*C+6*S , Y+6*C+ 


10.4*S) 




5420 LINE 


-(X+12*S.Y+12*C) 


5430 LINE 


- (X+10 . 4*C+6*S . Y+6*C- 


10,4*S> 




5440 LINE 


- (X+10 . 4*C-6*S , Y-6*C- 


10.4*S) 




5450 LINE 


-(X-12*S.Y-12»C) 


5460 RETURN 



A inicializacao encontra-se entre as 
linhas 1000 e 1100, onde uma serie de 
variaveis sao definidas. As linhas 2000 
a 2070 compreendem a sub-rotina encar- 
regada de selecionar a figura, A seta e 
movimeniada para a direita e para a es- 
querda atrav^s das teclas de controle (o 
Apple usa as mesmas teclas do progra- 
ma anterior). 

As linhas 3000 a 3040 identificam a 
figura que esta sendo apontada pela se- 
ta, de acordo com a variavel ME. Ao 
pressionar a tecla S, a figura escolhida 
aparecera no centro da tela. 

A sub-rotina de desenho situa-se en- 
tre as linhas 4000 e 4150. A linha 4000 
desvia o programa para a sub-rotina que 
contem as instrucccs para desenhar a fi- 
gura escolhida. A linha 4020 fixa a fi- 
gura na tela se a barra de espaco for 
adonada. 

As linhas 4090 e 4100 verificam se as 
teclas M e N foram pressionadas, am- 
pliando ou reduzindo o desenho. A op- 
cao final & a rotacao — linhas 4110 e 
4120. As teclas K e L controiam a dire- 
cao (para a esquerda e para a direita) em 
que sera executada. 

Ao pressionar C (< CLEAR > no 
TRS-Color), a tela sera apagada, fican- 
do pronta para o desenho seguinte. 

As sub-rotinas restantes contfim ins- 
trueoes para a construcao das cinco fi- 
guras. As linhas 5000 a 5030 desenham 
o triangulo; as linhas 5100 a 5140 tra- 
cam o quadrado; as linhas 5200 a 5240, 
o retangulo; as linhas 5300 a 5350, o 
pentagono e as linhas 5400 a 5460, o he- 
xagono. 

Tome cuidado para que seu desenho 
nao saia da tela, o que poderia acarce* 
tar a interrupcao do programa e uma 
mensagem de erro. Para interromper o 
programa, pressione F. 




OMPLEXO! 



COMO OBTER EFEITO 



DE UM "TIRO LASER" 



MOVIMENTOS DO CONE 



PAUSAS 



CONTROLE DA DURACAO 



Os usuarios do Apple e do TK-2000 
ja aprenderam a utilizar rotinas em 
cddigo de maquina para produzir sons 
em seu micro. Verao agora como 
criar efeitos sonoros mais complexos. 



No artigo da pagina 712, explicamos 
como contornar as Simitacoes dos micros 
das linhas Apple e TK-2O0O para que 
produzam sons. Examinaremos aqui a 
criacao de efeitos mais sofisticados. 

Cora a rotina que se segue obtemos 
um ruido que pode ser utilizado como 
"tiro laser" em um jogo de acao. O tru- 
que consiste em combinar um som que 
vai se tornando mais agudo com outro 
que fica cada vez mais grave. 



HIE] 



10 ORG BOO 

20 LDA #300 

30 STA SFF 

40 LDA 4300 

50 STA $FE 

60 LOOP LDA #300 

70 STA SC030 

80 LDX SFF 

90 PAUSEA MOP 

100 NOP 

110 NOP 

120 NOP 

130 DEX 

140 BNE PAUSEA 

150 INC $FF 

160 LDA #300 

170 STA SC030 

ISO LDX $FF 

190 PAUSEB NOP 

200 NOP 

210 NOP 

2 20 NOP 

2 30 DEX 

240 BNE PAUSEB 

250 DEC 3FE 

260 BEQ FIM 

2 70 JMP LOOP 

2B0 FIM RTS 

290 END 



E] 



Para o mini-Assembler do TK-2000, 
a listagem e a seguinte: 



0324- 
0326- 
0328- 
032A- 
032D- 
032F- 
0330- 
0331- 
33 2- 
0333- 
0334- 
0336- 
0338- 
33A- 
33D- 
033F- 
0340- 
0341- 
0342- 
0343- 
0344- 
0346- 
0348- 
34A- 
034D- 



LDA 
STA 

LDA 
STA 

LDX 
NOP 
NOP 
NOP 
NOP 
DEX 
BNE 
INC 
LDA 
STA 
LDX 
NOP 
NOP 
NOP 
NOP 
DEX 
BNE 
DEC 
BEQ 
JMP 
RTS 



• $00 
$FE 

• 300 
SC030 
3FF 



S032F 
SFF 
• 300 
3C030 
SFF 



3033F 
SFE 
3034D 
$0 3 28 



0320- 
0322- 



LDA 
3TA 



#300 
SFF 



Depois de estabelecido o endereco 
inicial, as quatro primeiras instrucoes 
colocam o valor zero nas posicoes $FF 
e SFE, que servirao como contadores, 
O registro A e usado para isso, porque 
nao ha no chip 6502 uma instrucao que 
coloque um certo valor diretameme em 
um endereco de memoria. 



EMISSA0 DE SOM 



A seguir, o registro A e novamente 
carregado com zero e a instrucao STA 
SC030 produz um movimento no cone 
do alto-falante. 

O valor contido na postcao de memo- 
ria SFF e, entao, colocado no registro 
X e as seis linhas seguintes provocam 
uma pausa com duracao proporcional 
aquele valor. Como no programa ante- 
rior, a linha 130 encarrega-se de subtrair 
uma unidade de X e, enquanto este con- 
tador nao tiver sido reduzido a zero, o 
laco entre as linhas 90 e 140 vai sendo 
repetido. 

Ap6s essa pausa, a instrucao INC 
SFF soma a unidade ao conteudo da po- 
sicao SFF, a fim de que a pausa seguin- 
te seja maior. 

As linhas 160 e 170 produzem nova* 
mente um movimento do alto-falante e, 
logo depots, as linhas 190 a 240 provo- 



cam nova pausa, agora com duracao 
proporcional ao conteudo de SFE. 

Ao contrario do que aconteceu na li- 
nha 150, a instrucao DEC SFE subtrai 
uma unidade do conteudo da posicao 
SFE, fazendo com que, na prdxima vez, 
a pausa seja menor. 



FIM DA ROTINA 



A instrucao BEQ FIM termina o pro- 
grama quando o conteudo de SFE for 
reduzido a zero. O final da rotina ocor- 
re com o desvio para o rotulo FIM, que 
contem a instrucao RTS. Enquanto 
houver um niimero maior que zero em 
SFE, a instrucao JMP LOOP faz o la- 
co entre as linhas 60 e 270 ser repetido. 



PAUSEA E PAUSEB 



Como poderaos observar, o programa 
produz movimentos do alto-falante — e, 
portanto, emite som — em duas oca- 
sioes: nas linhas 70 e 170. Entre esses 
dois eventos ocorrem duas pausas: uma 
que e rotulada PAUSEA e a outra, PAU- 
SEB. PAUSEA e controlada por SFF e 
vai aumentando de tamanho; PAUSEB. 
por SFE e vai diminuindo de tamanho. 
Combinam-se, dessa maneira, dois sons, 
um com frequencia crescente e outro 
com frequencia decrescente. 

Na realidade, o laco PAUSEA com- 
pleta 256 voltas na primeira vez, dando 
uma volta a mais cada vez que e executa- 
do. Como o contador SFF so usa um by- 
te, 256 e representado pelo numero zero, 
e + 1 = I. Assim, PAUSEA da uma 
volta na segunda execucao e uma volta 
a mats a cada nova execucao. J a PAU- 
SEB comeca com 256 voltas e vat dan- 
do uma volta a menos a cada execucao. 



CONTROLE DA DURACAO 



Para diminuir a duracao do efeito so- 
noro, basta retirar alguns comartdos 
NOP. Retire quantidades iguais de ca- 
da laco de pausa, pois, do contrario, o 
timbre do som sera alterado. Quem es- 
tiver usando o mini-Assembler precisa- 
ra recalcular os desvios. 



m 







lar estaria 
degaivotas. 
Os pniprios efeitos sonoros do jogo — 
que adicionaremos mais tarde ao pro- 
grama — indicam a chegada das aves, 
que voarao pelo ceu como parte do ce- 
nario de fundo. 

Voce deve estar pensando que este e 
urn detalhe desnecessario, ja que nao in- 
terfere no desenvolvimento da aventu- 
ra. Mas, certamente, sao detalhes desse 
lipo que diferenciam um programa arna- 
dor de um comercial, O tempo dos jo- 
gos em que dois bloquinhos rebatiam 
uma bola de tenis terminou. 

Int'eiizmente, na versao de Avalanche 
para o TRS-Color. nao ha gaivotas pois 
sua inclusao sobrecarregaria o jogo com 
betas adicionais. 



nao so 
i tela, como tarn! 
.1 que etas batam as asas. Para 
utilizamos apenas duas 
ruttiras de animacao. 



org 5B751 

gul Id a. (57349) 

inc a 

res 3, a 

Id (57349), a 

Id be, 57192 

cp 4 

jr c.gpt 

Id bc,5720B 

igipt Id a, 46 

Id hi, 4 7 

puflh be 

call print 

inc hi 

call print 

pop be 

Id hi, 68 

call print 

inc hi 

call print 

ret. 

org 56217 

print * 



PREPARANDO VOO 



isicao de memoria 5 
...ada variavel de atra 
sj.a variavel impede que as gaivo- 
tas batam as asas muito rapidamente. O 



10 REM 

20 REM 

30 REM 

40 REM 

51) REM 

60 REM 

70 REM 

80 REM 

90 REM 

100 REM 

11.0 REM 

120 REM 

130 REM 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

30 REM 



Enquanto Willie tenta escapar 
dos perigos que o cercam, gaivotas 
levantam voo e pairam no ceu, 
acrescentando a aventura um detalhe 
digno de um produto comercial. 



tado no acumulador A. 

Para que as asas se movimentem pa- 
ra cima e para baixo adequadamente, o 
valor da variavel de atraso deve oscilar 
num limite bem restrito. A instrucao res 
3,a ajusta o bit 3 do acumulador com 
o valor 0. 

No moment© em que a variavel de 
atraso for incrementada com um valor 
superior a 7 — o bit 3 teria, entao, o va- 
lor 1 — , o programa volta a ajusta-la 
com o valor 0. O resultado do ineremen- 
to ou do ajuste para zero e novamenic 
armazenado no endereco 57349. 

Para fazer com que a ave pareca es- 
tar batendo as asas, colocamos na tabela 
de dados padroes de bits para duas gai- 
votas — uma com as asas para cima e 
outra com as asas para baixo. Os ende- 
r "'-os inieiais dos dois conjuntos de da- 

! sao, respectivamenie, 57192 e 

•08, Cada gaivota compreende con- 

itos de dezesseis bytes de dados. 

O par de registros BC e carregado 
com o endereco do primeiro desses dois 
blocos de padroes ou dados. Em segui- 
da, o conteiido do acumulador — onde 





37 CODIGODEMAQUINA 27 




VARIAVELDE A.. 
COMO FAZER A GAIVOT 



BATER AS 

D ECOLAGE 

DEFINICAO DO V( 



iM MLViW:' 



nado — c comparada com o niimero 4. 

Uma instrucao cp corresponde a uma 
subtracao cujo rcsultado nao foi arma 
zcnado. No nosso programa, o numen 
4 e suhi rafdo do conteudo do acumuia- 
dor, mas nao se armazena o resultado 
em nenhum lugar. Essa operac3o tem a 
funcao cxclusiva de ajustar os indicado- 
res ou balizas. 

Em conseqiiencia, se o atraso da gai- 
vota for menor do que 4 — ou seja, 0, 
I, 2 ou 3 — o tndicador denominado 
carry e ajusiado com 1 . Se o atraso da 
gaivota For maior do que 4, carry tem 
o valor 0. 

A instrucao jr c faz o proeessador sal- 
tar para o r6tulo que a acompanha 
quando carry esia ajusiado com o va- 
lor I . Assim. se o atraso da gaivota for 
menor do que 4, o proeessador pula a 
instrucao scguintc e o endereco 57192 
permanece no par de registros BC. Mas, 
se o atraso da gaivota for maior ou igual 
a 4 — e carry tiver, porlanto, o valor 
— , o saJto nao ocorre e o par de re- 
gistros BC c carregado com ,o valor 
57208, que corresponde ao endereco ini- 



ill ,T: Ti I7i ; JwW« R 



de dados. 



DECOLAGEM 



r A e carreg 
para que a cor da gaivota seja ajusta- 
da, e o par HL recebe a posicao na tela 
da primeira gaivota, 42. 

O eonteiido do par BC e entao guar- 
dado na pilha. Para complicar um potl- 
co mais, temos duas gaivotas tanto na 
tela como na tabela de dados. A tabela 
contem os padroes de uma gaivota com 
as asas para cima e outra com as asas 
para baixo, enquanto a tela exibe a mes- 
ma gaivota, impressa duas vezes cm dois 
lugares diferentes. Como se utiliza uma 
so imagem, as gaivotas batem asas em 
sincronia. 

Por esse motivo, o apontador de da- 
dos e preservado na pilha, enquanto a 
primeira gaivota esia sendo impressa na 
(eta. A rotina print increments esse 
apontador automaticamente durante a 
impressao dos dezesscis bytes de dados 
que sao ncccssarios para complctar o de- 



da, a rotina print coloca na tela oi 
bytes de dados seguindo a posicao h 
"H definida pelo par de registros BC. 
wteudo de BC e incrementado a ca- 

byte impresso. 

Depois da impressao da primeira p; 
te da gaivota, o par HL e incrementa 
para apontar a posicao na tela imed 
tamente a direita, Em seguida, a rati 
print e chamada outra vez. 

Quando os dois blocos (iverem si 
impressos, a primeira gaivota est; 
compleia. O computador passa, enti. 
a impressao da segunda. Para isso, 
apontador de dados e recuperado da r 
lha e o par HL e ajustado para apontar 
a nova posicao de impressao. Feitos i 
sesajustes, a rotina print e chamada c 
tra vet. Todo o processo ja descrito 
repete, ate que se complete o desenho i 
segunda gaivota. 
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A listagem que voce digitara a seguir 
nao faz parte do programa principal. 
Este e composto por quatro rotinas, tr£s 
das quais ja publicadas. Apresentare- 
mos a ultima delas no artigo que encer- 
ra a serie Avalanche. 

Este programa e todos os que o se- 
guem, a partir do presente artigo, cons- 
tituem sub-rotinas isoladas que irao'ser 
chamadas pela quarta rotina do progra- 
ma principal. Como esta sera montada 
na seqiieYicia da terceira rotina, a lista- 
gem que fornecemos aqui comeca no en- 
dereco -11380. Deixamos, assim, urn 
espaco reservado para a ultima parte do 
programa principal do jogo, 

Esta rotina, aI6m de colocar as gai- 
votas na tela, faz com que elas bat am 
as asas para cima e para baixo usando 
sd duas estruturas de animacao. 



10 


org 54156 


20 


gul Id a, (-5206) 


30 


inc a 


40 


res 3, a 


50 


Id (-5206). a 


60 


Id b,28 


70 


CP 4 


80 


jr c,gpt 


90 


Id b.32 


100 


opt push be 


110 


Id a,b 


120 


Id hi, (62407) 


130 


Id de,42 



140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 



add hl.de 
push hi 
push af 
call 77 
pop af 
pop hi 
inc hi 
add a, 2 
call 77 
pop be 
Id a,b 

Id hi, (62407) 
Id de,68 
add hl.de 
push hi 
push af 
call 77 
pop af 
pop hi 
inc hi 
add a, 2 
call 77 
ret 
end 



DEFINICA0 DO VuO 



A posicao de mernbria - 5206 con- 
tem a variavel de atraso da gaivota, que 
tern a funcao de impedir que as aves ba- 
tam as asas muito rapidamente. O atra- 
so complete € carregado e incrementa- 
do no acumulador A. 

Para que as asas se movimentem pa- 
ra cima e para baixo de maneira adequa- 
da, o atraso da gaivota deve oscilar nu- 
ma faixa rest rita. A instrucao res 3,a se 
encarrega disso, ajustando o bit 3 do 



acumulador com o valor 0. Analisando 
essa instrucao, verifica-se que a varia- 
vel de atraso sera reajustada ao valor 
sempre que ela for incrementada com 
um valor superior a 7. Nesse case, o re- 
sultado do incremento e do ajuste para 
zero e armazenado novamente no ende- 
reco -5206. 

Para dar a impressao de que a gai- 
vota esta batendo as asas, utilizamos pa- 
droes de bits para duas gaivotas — uma 
com as asas para cima e outra com as 
asas para baixo. 

Os eddigos dos padroes para a pri- 
meira gaivota sao 28 e 30, e para a se- 
gunda, 32 e 34. Cada padrao compreen- 
de oito bytes de dados e cada gaivota 
possui dois padroes. 

O registro B e carregado com o c6di- 
go do primeiro padrao da primeira gai- 
vota. Depois, o conteiido do acumula- 
dor — onde ainda esta o atraso da gai- 
vota — e comparado com o mimero 4. 

Uma instrucao cp equivale a uma 
subtra^ao cujo resultado nao foi arma- 
zenado. O numero 4 e subtraido do con- 
teiido do acumulador, mas nao se arma- 
zena o resultado em nenhum lugar. Es- 
sa operacao tern a funcao exclusiva de 
ajustar os indicadores ou balizas (flags). 
Se o atraso da gaivota for menor do que 
4, o indicador chamado carry e ajusta- 
do com o valor 1 ; se for maior ou igual 
a 4, carry nao e ajustado. 

A instrucao jr, c,gpt faz o processa- 
dor saltar para o r6tulo gpt se carry foi 




ajustado com 1. Assim, se o atraso da 
gaivota for menor do que 4, o proces- 
sador salta a instrucao seguinte e o cd- 
digo 28 permanece ern B. 

Se o atraso da gaivota for maior ou 
igual a 4, carry nao foi ajustado e o sal- 
to nao ocorre. O registro B 6, cntao, car- 
regado com o cddigo 32, correspondente 
ao primeiro padrao da segunda gaivota 
na tabela de padrdes. 



DECOLAGEM 



A rotina gpt — incumbida de colo- 
car as duas gaivotas na tela — comega 
armazenando na pilha o cddigo do pri- 
meiro padrao da gaivota que esta sen- 
do impressa. Isso e feito porque, como 
temos que imprimir a gaivota duas ve- 
zes, esse cddigo sofrerd alteracao duran- 
te a primeira impressao. 

Para imprimir uma gaivota na tela, 
recorremos a rotina 77 da ROM, ja uti- 
lizada em partes anteriores do jogo. An- 
tes, precisamos ajustar seus parametros. 
O acumuiador deve conter o c6digo do 
padrao e o par de registros HL, o ende- 
reco na tabela de nomes onde vamos co- 
loea-lo — ou seja, a posicao de impres- 
sao na tela, 

O c6digo do primeiro padr&o da gai- 
vota 6 transferido do registro B para o 
acumuiador. Em seguida, o par HL 6 
carregado com o endereco inicial da ta- 
bela de nomes, que esta armazenado nos 



enderecos 62407 e 62408 da RAM. Adi- 
cionando-se o numero 42 a esse endere- 
co, por meio do par de registros DE, ob- 
tem-se a posicao na tela da metade ini- 
cial da primeira gaivota. 

Os conteiidos do par de registros HL 
e do acumuiador sao preservados na pi- 
lha, uma vez que podem ser alterados 
pela rotina 77. Esta e chamada logo em 
seguida e imprime a metade esquerda da 
primeira gaivota. 

O apontador da posicao na tela e re- 
cuperado da pilha, voltando ao par HL, 
enquanto o cddigo do padrao retoma ao 
acumuiador. Em seguida, o apontador 
em HL e incrementado para indicar a 
posicao de impressao da metade direi- 
ta. O numero 2 e entao adicionado ao 
acumuiador, que passa a conter o cddi- 
go do padrao da segunda metade. Quan- 
do a primeira gaivota ja esta" na tela, a 
rotina 77 6 chamada. 

O cddigo do padrao da metade es- 
querda da gaivota € recuperado da pi- 
lha para o registro B, uma vez que essa 
mesma figura sera novamente impressa 
em outra posicSo. 

O procedimento e analogo ao ja des- 
crito, s6 que a adicao do numero 68 ao 



endereco inicial da tabela de nomes em 
HL indka a posicao de impressao da se- 
gunda gaivota. A rotina 77 e chamada 
duas vezes, uma para cada metade, e o 
endereco da segunda gaivota se comple- 
ta na tela tamb&n. 



TESTANDO 



Para testar a listagem aqui apresen- 
tada, espere a publicacao da ultima ro- 
tina da s&rie Avalanche. Se quiser se an- 
tecipar, digite uma pequena rotina em 
cddigo de maquina que chame a rotina 
deste artigo varias vezes, com um peque- 
no atraso entre cada chamada. Tal atra- 
so pode ser provocado por um laco 
qualquer. Depois disso, carregue a ta- 
bela de padrdes e veja as gaivotas ba- 
tendo suas asas. 





NOT 




TRS-80 nao conta com comandos para 
a produc9o de efeitos sonoros. 
Dois pequenos programas em codigo de 
maquina, porem, permrtem a 
criacao de diversos sons nesse micro. 



Muitos tipos de jogos e outros pro- 
gramas se tornarao bem mais interessan- 
tes e "profissionais" se voce" adicionar 
a eles musica e efeitos sonoros, como 
ruidos de tiros, explosoes, disparos de 
canhoes de laser e coisas do g§nero. Na 
verdade, esta e uma das razoes pelas 
quais a maioria dos microcornput ado- 
res mais modernos tem comandos espe- 
ciais em BASIC para o controle de sin- 
tetizadores internos de sorn, como e o 
caso do TRS-Color, do Spectrum, do 
MSX e do TK-2000. 

Os micros compativeis com a linha 
TRS-80 nao contain com esse recurso, 
tao simples de usar. Mas isso nao quer 
dizer que seja impossivel programar 
efeitos sonoros e musicais nessas maqui- 
nas, Conhecendo alguns truques em lin- 
guagem Assembler, e facil escrever pe- 
quenas rotinas para adicionar som aos 
seus programas. 



FACA UM SOM 



Fazer o programa nao e tudo, porem. 
Normalmente, os microcomputadores 
da linha TRS-80 nao tem alto-falante in- 
terno, como ocorre com o Apple, e nem 
possuem linha de conexao para o alto- 
falante da TV ou do monitor, como 6 
o caso do MSX e do TK-2000. 

Por essa razao, se quisermos produ- 
zir sons nesse micro, devemos utilizar a 
saida para o gravador cassete. Esse re- 
curso vale tambSm para os modelos da 
linha TRS-80 que dispoem de alto- 
falante interno (por exemplo, o ProI6- 
gica CP-500), ligado em paralelo com a 
saida para cassete. 



PORTA DE SAlDA 



Como e" possivel produzir efeitos so- 
noros numa saida desse tipo? 

Um gravador de audio £ capaz de re- 
gistrar apenas sons na faixa audivel (en- 
tre 200 1 10.000 Hz, com os valores ma- 
ximo e minimo dependendo da qualida- 
de do aparelho). Ora, uma interface es- 
pecial na saida para o gravador trans- 
forma os impulsos binaries (0 e 1), que 
^_ constituem a "linguagem" interna do 
1032 computador, em ondas el£tricas com 



freqiie'neia compativel. Em outras pala- 
vras, se voce colocar uma fita gravada 
com um programa de computador para 
escutar, ouvira uma "sinfonia" musical 
ca6tica, que corresponde aos sinais en- 
viados pelo computador. 

Essa interface de conversao digital- 
anal6gica esta conectada internamente 
a uma porta do computador. 

Uma porta 6 um canal de comunica- 
cao entre o microprocessador e o mun- 
do externo. Em geraJ, uma porta faz a 
comunicacao nos dois sentidos (entra- 
da e saida), mas muitos micros usam de- 
terminadas portas sd para um tipo de 
operacao. £ o caso da porta para gra- 
vador cassete, que £ apenas de saida. 

Em conseqiiencia, tudo o que neces- 
sitamos fazer para ouvir sons produzi- 
dos pela porta do gravador cassete e" co- 
nectar o plugue do Fio que normalmen- 
te e utilizado para gravar programas e 
dados (e que e" chamado de AUX ou 
MIC) a um sistema de som, dotado de 
amplificador e alto-falante. 

Quern tem um microcornputador da 
linha TRS-80, ou compativel, ja dota- 
do de alto-falante interno, nao precisa 
nem mesmo tomar essas medidas. 



SONS POR SOFTWARE 



Para acionar uma porta de saida, 
usamos a instrugao OUT, em linguagem 
Assembler, que se encarrega de enviar 
um byte para essa porta. 

Para gerar sons com a instrucao 
OUT, recorremos a velocidade do codi- 
go de maquina. Tudo o que e" preciso fa- 
zer, neste caso, e" movimentar alterna- 
damente o cone do alto-falanle para fo- 
ra e para dentro. Se fizermos isso uma 
vez, produziremos um clique do tipo que 
costuma ocorrer quando ligamos um 
aparelho de som. G truque consiste em 
repetir a operacao seguidas vezes, e de 
modo bastante rapido. Se os movimen- 
tos forem suficientemente velozes, a su- 
cessao de cliques vai parecer um zum- 
bido. Quantoi mais acelerado for o mo- 
vimento de vaivem do cone, mais agu- 
do sera o som obtido. 

Para escrever um programa destina- 
do a criar qualquer tipo de efeito sono- 
ro, & necessario que se conhecam alguns 



fatos bdsicos sobre a porta do gravador 
do micro TRS-80: 

• A porta de saida do gravador tem o 
endereco 255 (FF em hexadecimal). 

• Apenas o primeiro e o segundo bits do 
byte enviado a porta de saida sao usa- 
dos pelalinterface de conversao. O bit 
zero determina a saida de um impulso 
de som, ao passo que o bit um controla 
o motor do gravador. 

• Quando o bit zero da porta e" iguala- 
do a 1 , ocorre um impulso audivel po- 
sitivo na linha AUX ou MIC do grava- 
dor. Quando o bit zero e" igualado a 0, 
ocorre um impulso negativo. 

Portanto, para conseguir uma apro- 
ximacao de uma onda sinusoidal (torn 
puro de uma certa frequSncia) na porta 
de saida, o software deve fazer o seguin- 
te: um impulso positivo i enviado, e um 
pequeno periodo de espera £ introduzi- 
do. Em seguida, um impulso negativo 
& enviado, e novo periodo de espera de- 
ve ocorrer. 

Ao ser aumentado o periodo de es- 
pera, a freqiiSncia do som gerado sofre- 
ra uma diminuicao; se, ao contrario, es- 
se periodo for reduzido, a freqiie'neia 
obtida sera incrementada. 

Para produzir um ruido ou qualquer 
outro efeito sonoro diferente, basta va- 
riar os dois intervalos de espera segun- 
do algum padrao (ou, entao, aleatoria- 
mente: com isso conseguiremos o cha- 
mado "ruido branco", semelhante ao 
chiado de um radio). 



TONS PUR0S 



Apresentamos a seguir uma sub- 
rotina em linguagem de maquina que 
possibilita a producao de tons puros (bi- 
pes), com freqiiencia e duracao indivi- 
dualmente controlaveis. 

Para facilitar o uso dessa rotina por 
programas em BASIC, a sub-rotina e in- 
teiramente realocavel, e e colocada em 
uma parte protegida da membria por 
uma rotina de inicializacao, em BASIC, 
que precisa ser chamada apenas uma 
vez. Uma segunda rotina, tamWm em 
BASIC, invoca a sub-rotina em codigo 
de maquina, por meio do comando 
USR. 

fi possivel armazenar a rotina em co- 
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PRODUZA SONS NO TRS-80 



INTERFACE OE CONVERSAO 



A PORTA DE SA1DA 



A INSTRUCAO OUT 



TONS MUSICAIS 



ROTINA DE PRODU CAO 



DE SONS 



PROGRAMA DE TESTE 



COMOVARIARAFREQUENCIA 
TIROS E EXPLOSOES 



digo de maquina em uma parte protegi- 
da da memdria. Para isso, reinicialize o 
computador e forneca o limite minimo 
da memdria protegida quando ele apre- 
sentar na tela a questao "MEM USA- 
DA?" ou "MEMSIZE?". Noexemploa 
seguir, imaginamos que o computador 
tem 32Kbytes, e fixamos o limite mini- 
mo da memoria; assim, a rotina passa- 
ra a ser armazenada na locacao 4900 1 . 
Para usar outro limite de memdria, al- 
tere o valor da variavel IM na linha 1010 
do programa de inicializacao. O valor 
sugerido para urn computador com 
48Kbytes de RAM seria 65000. 

A versao aqui apresentada funciona 
em microcomputadores da linha TRS-80 
com BASIC Nivel II (para cassete): 

1000 ' ROTINA DE INICIALIZACAO 
1010 IM-49000 
1020 FOR 1-1 TO 35 
1030 READ N:POKE IM+I.N 
1040 NEXT N 

1050 DATA 205 ,.12 7-, 10, 14. 255, .6 
1060 DATA 1,237,65,17,29,0,27 
1070 DATA 122,179,32,251,6,2 
1060 DATA 237,65.17,29,0,27 
1090 DATA 122.179.32,251.43 
1100 DATA 124,161.32,227,201 
1110 POKE 16527, INT (IM/256) : 
POKE 16526. IM-INTUM/256) "256+1 
1120 RETURN 

A rotina a ser chamada no momento 
de producao do som e assim: 

2000 ' SUBHOTINA PARA SOM 
2010 CY-FQ*DR:N-29483/FQ 
2020 POKE IM+ll,N:POKE IM+23.N 
2030 I-USRtCY) : RETURN 

Note que a rotina exige dois argu- 
mentos, que devem ser fornecidos pelo 
programa que a chamou: DR e a dura- 
c3o, emsegundos, eFQ, a freqiiencia do 
som, em hertz (ciclos por segundo). 
Apresentamos a seguir um pequeno pro- 
grama de teste, que exemplifica a ma- 
neira de usar as rotinas anteriores. 

10 'PROGRAMA DE TESTE 
20 G03UB 1000 : ' INICIALIZACAO 
30 CLS: INPUT" DURACAO <S)";DR 
40 INPUT" FREO.UENCIA (HZ) " ; FG 
50 GOSUB 2000: GOTO 30 

Para rodar o programa em micros 
com Disk BASIC (para disquete), faca 
as seguintes modificacoes: 



1110 DEFUSR0-IM+1 
2040 I-USR0CCY) : RETURN 

Os programas apresentados funcio- 
nam da seguinte maneira: a rotina de 
inicializacao le os codigos decimals cor- 
respondentes a rotina em linguagem de 
maquina, e os coloca na memdria pro- 
tegida por meio do comando POKE. 

Antes de terminar, a rotina define o 
endereco de partida da rotina de maqui- 
na, que i, entao, comunicado ao inter- 
pretador (par de apontadores 16526 e 
16527, na versao destinada a gravador 
cassete, e DEFUSR, na versao adapta- 
da para disco). 

Na pequena rotina de producio de 
sons, inicialmente e calculado o nume- 
ro total de ciclos (positivo/negativo) ne- 
cessario para produzir a duracao pedi- 
da. Esse valor e armazenado na varia- 
vel CY, que e" passada a rotina USR por 
meio de seu argumento. 

A duracao total da pausa a ser exe- 
cutada entre os ciclos (N) e tambem cal- 
culada e fornecida a rotina diretamen- 
te, mediante dois comandos POKE, nos 
pontos onde 6 necessaria. 

A ultima linha da rotina em lingua- 
gem BASIC se encarrega de chamar a 
rotina em cddigo de maquina, e retor- 
na depois de ser executada. 



TIROS, EXPLOSuES E CHIAD0S 



O prdximo programa funciona se- 
gundo o mesmo principio que o ante- 
rior, so que o intervalo entre as fases po- 
sitiva e negativa da onda sonora e alte- 
rado aleatoriamente a cada instante. Ao 
inv6s de um som puro (freqiiencia cons- 
tante em toda a duracHo), esse tipo de 
intervalo produz um impulso de "ruf- 
do branco", que tem como caracteris- 
tica uma mistura de todas as freqiten- 
cias (dai seu nome, em analogia com a 
cor branca). Portanto, resta ao softwa- 
re controlar apenas a duracao total do 
impulso sonoro. Duracoes muito curtas 
produzem um efeito sonoro semdhan- 
te a um tiro; duracoes um pouco maio- 
res, algo semelhante a uma explosao, e 
duracoes muito longas, um chiado que 
lembra a estatica de radio (ou, se voce 
quiser, o barulho produzido pelo reator 



de um aviao a jato). Todos esses efeitos 
tem suas aplicacdes em programas de 
jogos. 



FUNC10NAMENT0 DA ROTINA 



Da mesma maneira que a anterior, a 
sub-rotina e inteiramente realocavel, e 
e colocada em uma parte protegida da 
memdria por uma rotina de inicializa- 
cao em BASIC, que precisa ser chama- 
da apenas uma vez. Uma segunda roti- 
na, tambem em BASIC, invoca a sub- 
rotina em codigo de maquina, por inter- 
medio do comando USR. 

A versao a seguir destina-se a micro- 
computadores da linha TRS-80 com 
BASIC Nfvel II (para cassete). A rotina 
de inicializacao e assim: 

1000 ' ROTINA DE INICIALIZACAO 

1010 IR=490DO 

1020 FOR 1-1 TO 26 

1030 READ N:POKE IR+I.N 

1040 NEXT N 

1050 DATA 205,127.10.62.1.211 

1060 DATA 255.237,95,87.71,16 

1070 DATA 254,62,2,211,255,66 

1060 DATA 16,254,43.124.181.32 

1090 DATA 234,201 

M10 POKE 16527, INT (IR/256) : 

POKE 16526, IR-INT(IR/256)*256+l 

1120 RETURN 

A rotina de producjto de sons: 

2000 ' SUBROTINA PARA RUIDO 

2010 N-DR*1000 

2020 I-USR(N) : RETURN 

E um pequeno programa de teste: 

10 'PROGRAMA DE TESTE 
20 GOSUB 1000 :' INICIALIZACAO 
30 CLS:INPUT"DURACA0 (3)"jDR 
40 GOSUB 200Q:GOTO 30 

Finalmente, para rodar o programa 
em micros com Disk BASIC (para dis- 
quete), faca as seguintes modificacoes: 

1110 DEFUSR0-IR+1 
2040 I-USR0CN) : RETURN 

Se voc£ quiser usar as duas rotinas em 
linguagem de maquina no mesmo pro- 
grama, altere os endereco s de partida 
IM e IR, de modo a evitar superposicao 
{por exemplo, se IM =49000, faca 
IR = 49036, no minimo). 
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No primeiro artigo desta serie sobre 
jogos de guerra, criamos os blocos gra- 
ficos que irao representar as unidades 
militares no campo de batalha. Esses 
simbolos serao eotocados e movidos em 
urn mapa, para que possamos acompa- 
nhar o desenrolar da disputa e planejar 
nossa estrategia. 



OMAPA 



Capa e Espada tera uma matriz para 
representar o mapa. Este permanecera 
em exibicao durante todo o jogo, ocu- 
pando a maior parte do video. 

Como o mapa esta sempre na tela, 
poderiamos dispensar a matriz, pois a 
mem6ria de video contera todas as in- 
formacoes a respetto do mapa. Convem, 
no entanto, manter esses dados organi- 
zados em uma matriz, mesmo as custas 
de grande quantidade de mem6ria. Se- 
ra muito mais facil obter e modificar as 
informacoes na matriz do que na memo- 
ria de video. 

A matriz tera tantos elementos quan- 
tas forem as posigfies do mapa. Os ma- 
pas dos micros das linhas MSX, TRS- 
Color e Spectrum tSm trinta por dezes- 
seis posicoes; os do Apple e do TK-2000, 
vinte por dezoito. 



AS TROPAS 



Para controlar a posicao das tropas 
no mapa e verificar se ha obstaculos em 
seu caminho quando as movimentamos, 
precisamos de uma segunda matriz, Es- 
ta nao so contera a posicao de cada uma 
das unidades, mas, tambem, toda e 
qualquer informagao referente a elas. 

Em Capa e Espada, a matriz da tro- 
pa contera ainda informacoes relaciona- 
das aos combates, ao movimento etc. O 
conteiido de uma matriz desse tipo de- 
pende da natureza do jogo. Voce tera 
melhores informacoes sobre isso a me- 
dida que formos ampliando o programa. 



DIMENSIONAMENTO DAS MATRIZES 



As linhas seguintes dimensionam as 
ion matrizes do mapa e da tropa. 



350 
355 



DIM 
DIM 



350 
.355 



DIM 
DIM 



m (16, 
TU6, 



MU.6, 
T(J5 



30) 
9) 



30) 

8) 



[BE! 



350 DIM MU8.20) 
360 DIM TU.6,9) 



Q 

350 DIM M(16,30) 
355 DIM TU6.9) 

Os valores contidos na matriz do ma- 
pa asseguram que ele tenha o tamanho 
da tela. A matriz da tropa, por sua vez, 
e dimensionada de modo que possa cen- 
ter nove tipos de informagao a respeito 
de cada uma das dezesseis unidades que 
estao em combate. 



COMO PREENCHER MAPA 



O prdximo passo consiste em deter- 
minar os varies tipos de terreno que 
compoem a area mapeada, bem como 
a posicao inicial de cada uma das uni- 
dades. Poderiamos ter optado por um 
mapa fixo — o que seria muito impor- 
tante se quisessemos reproduzir uma ba- 
talha famosa. Porem, e bem provavel 
que os jogadores prefiram alterar o cam- 
po de batalha a cada jogo. Para faze-lo 
sem complicates, utiliza-se o gerador 
de niimeros aleat6rios do micro. 

A definicao do terreno poderia 
resumir-se a uma simples escolha ao aca- 
so entre os tipos possfveis. Porem, a dis- 
tribuicao de florestas e montanhas ge- 
ralmente nao e um simples fruto do aca- 
so. Seria interessante que o programa 
pudesse reproduzir um padrao mais pr6- 
ximo do real, concentrando montanhas 
ou florestas era certas areas. 

Durante o planejamento do mapa de 



Chegou a hora de desenhar o mapa 
do campo de batalha. Vamos preenche-lo 
com vitas, florestas e montanhas, 
para, depois, colocar as forcas 
inimigas em suas posicoes iniciais. 



um jogo de guerra, e importante tam- 
bem considerar o tipo de terreno no qual 
esperamos que se de a acao. Em Capa 
e Espada, por exemplo, pretende-se si- 
mular uma guerra medieval, com a 
maioria das batalhas sendo travadas em 
campo aberto. Nesse caso, nao e inte- 
ressante ter montanhas e florestas demais. 



A ESCOLHA DO TERRENO 



A rotina que listamos a seguir e es- 
sencialmente aleat6ria, embora haja um 
certo controle sobre a selecao, o que aju- 
da a dar uma aparencia de maior reaLi- 
dade ao mapa. 



20 DEF FN r(x)-INT (RND*jO +1 
800 REM Eacolbe terreno 
810 LET R-FN r{50) 
820 IF R>5 THEN LET R = 
830 IF B>4 THEN LET R-3: 

RETURN 
840 IF R>1 THEN LET R-2 
550 RETURN 



m 



15 R=RND(-TIME) 

20 DEF FN R(X) =INT{RND U) *X) +1 

800 REM TERRENO 

810 R-FN R(50) 

820 IF R>5 THEN R=0 

8 30 IF R>4 THEN R=3: RETURN 

840 IF R>1 THEN R-2 

850 RETURN 



L7H3] 



20 DEF FN R{X) ■ INT t R.ND ( 

1.) * X) + 1 

300 REM TERRENO 

810 R-FN R(50) 

820 IF R > 5 THEN R - 

830 IF R > 4 THEN R = 3: RETUR 

N 

840 IF R > 1 THEN 8=2 

850 RETURN 



El 



800 REM ESCOLHE TERRENO 
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MATRIZES DO MAPA 



MATRIZES DAS TROPAS 



COMO PREENCHER MAPA 



POSICIONAMENTO 



DAS UNIDADES 



COMO CQLOCAR 



OS BLQCOS GRAFICOS NA TELA 
MOLDURA PARA MAPA 

FATORES QUE AFETAM 

MOVIMENTQ DAS FORCAS 
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810 


R-RND{50) 




820 


IF R>5 THEN 


R-0 


830 


IF R>4 THEN 


R- 3: RETURN 


840 


IF R>1 THEN 


R-2 


850 


RETURN 





O programa utiliza apenas numeros 
aleatorios inteiros. Como o Apple, o 
TK-2000, o Spectrum e o MSX nao tern 
uma funcao como a RND, a linha 20 
DEFine uma Funcao para isio. 

Em todos os programas, urn mime- 
ro aleatirio inteiro entre 1 e 50 e cria- 
do. A rotina de "escolha de terreno" se- 
leciona um valor para a variavel R de 
acordo com o numero criado. Se esse 
numero for maior que 5, R valera 0, co- 
digo de campo aberto. Se for 5, R sera 

3, codigo de montanha; se for 2, 3 ou 

4, R sera 2, valor que represents flores- 
ta; e, se for I, R fica valendo 1, codigo 
de vila. 



C0NTROLAND0 ACAS0 



A rotina de "escolha de terreno" e 
chamada para definir cada posicao da 
matriz do mapa ao longo de uma de suas 
dimensoes. Como foi mencionado an- 
teriormente, nao e desejavel que a dis- 
tribuicao seja totalmente aleatdria. A 
rotina que se segue impoe um certo pa- 
drao a distribuicao dos tipos de terreno, 
tornando o mapa mais real. 



370 LET i$="NOSL" 
470 REM Cria 

480 FOR i-1 TO 16: GOSUB 800: 
LET m(i , l)-fi: NEXT i 
490 FOR i-1 TO 16 
500 FOR j-2 TO 30 
510 LET a-FN r (10) 
520 IF a<8 THEN GOSUB 600 
525 IF a>-8 THEN LET R-m(i.j- 
1) 

530 LET m(i,j)-R 
540 IF R-3 AND j<30 THEN LET 
m(i. 3+1) -4 

550 IF m(i.j)<>0 AND m(i,j)<>3 
THEN PRINT AT i,j;CHR$ (m(i,j 
)+143) 

555 IF m(i,j)=3 AND jO30 THEN 
PRINT AT i,j;CHR$ 146;AT i , j+ 
liCHRS 147 
560 NEXT j 
570 NEXT i 
580 GOSUB 720 
590 FOR i-1 TO 8 
600 FOR j-1 TO 2: 
: LET T(i+8, j)-2: 
610 FOR j=3 TO 4: 
LET T(i+B, j)=T(i 
620 READ mr 

630 FOR j-0 TO 8 STEP B 
640 LET T(i+j.5)-nr+FN r(2) 
650 LET T{i+j,6)-(FN r(100)*10 



LET T(i,j)-2 
NEXT j 
READ TU . j) : 
. j) : NEXT j 



)+10 

660 LET T(i+j,7)-T(i+j,6) 

670 NEXT j 

680 LET T(i ,B) -15 

690 LET T(i+8,B)-1 

700 NEXT i 

710 RETURN 



ffti 



370 I$-"NWSE" 
470 REM CRIACAO 

480 FOR 1-1 TO 16: GOSUB 800:M(I 
,1)-R:NEXT I 
490 FOR 1-1 TO 16 
500 FOR J-2 TO 30 
510 S=FN R(10) 
520 IF S<8 THEN GOSUB 800 
525 IF S>-8 THEN R-M(I.J-l) 
530 M(I,J)-R 

540 IF R=3 AND J<30 THEN M(I,J+ 
l>-4 

550 IF M(I,J)O0 AND M(I,J)<>3 
THEN LOCATE J , I : PRINT CHRS(M(I, 
J)+223) 

555 IF MCI, J) -3 AND JO 30 THEN 
LOCATE J, I: PRINT CHR3 ( 226) +CHR 
3(227) ; 
560 NEXT J, I 
580 GOSUB 7 20 
590 FOR 1-1 TO 8 
600 FOB J-1 TO 2:T(I, J)-2:T<I+8 
,J}-2:NEXT J 

610 FOR J-3 TO 4:READ T(I,J):T( 
1+8. J) -T (I, J) :NEXT J 
620 READ MR 

630 FOR J-0 TO 8 STEP 8 
640 T(I+J,5)-MR+FN R(2) 
650 T{I+J,6)-(FN R(100)*10)+10 
660 T(I+J,7)-T(I+J.6) 
670 NEXT J 
680 T(I,8)-15 
690 T (1+8,6) -1 
700 NEXT I 
710 RETURN 
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370 13 = "NOSL" 

470 REM CRIACAO 

480 FOR I - 1 TO 16: GOSUB 800 

:M(I.l) - R: NEXT 

490 FOR I - 1 TO 18 

500 FOR J - 1 TO 20 

510 S - FN R(10) 

520 IF S < 8 THEN GOSUB 800 

525 IF S > - B THEN B - M(I,J 

- 1) 
530 M(I,J) - R 

540 IF B ■ 3 AND J < 20 THEN M 
(I.J + 1> - 4 

550 IF M(I.J) < > AND M(I,J 
) < > 3 THEN Y-I:X-J:N-H 
(I, J) - 1: GOSUB 10000 



560 IF M(I.J) - 3 AND 
THEN Y - I:X - J:N - 
10000:X - J + 1:N - 3 
0000 

570 NEXT J, I 
580 GOSUB 720 
590 FOR 1 - 1 TO 8 



J < > 2 

2: GOSUB 
GOSUB 1 



1037 



600 FOR J - 1 TO 2:T<I,J) - 2: 

T(I + 8, J) - 2: NEXT J 

610 FOR J = 3 TO 4: HEAD T(I,J 

) :T(I + 6, J) - TU,J) : NEXT J 

620 READ MR 

630 FOH J • TO 8 STEP 8 

640 T(I + J. 5) ■ MR + FN R{2) 

650 T(I + J. 6) - ( FN R{100) * 

10) + 10 

660 T(I + J,?) - Ttl + J. 6) 

670 NEXT J 

680 T(I,8) - 18 

690 T(I + 6,6) - 1 

700 NEXT I 

710 RETURN 

10000 X - X * 2 - 2:N - N * 2: 

FOR W-0T0 1:X=X+ W:N = N 

+ W: FOR V - TO 7 

10010 POKE T + (Y - 8 * (Y>7 

) - 8 * (¥ > 15)) * 128 + 40 * 

(Y > 7) + 40 * CY > 15) + X + 1 

024 * V. PEEK (EE + N * 8 + V) 

10020 NEXT W,W: RETURN 



Q 



370 IS="NOSL" 

470 REM CRIAR 

480 FOR 1=1 TO 16:GOSUB BOOrMCI 

,1) -ft: NEXT I 

490 FOR 1-1 TO 16 

500 FOR J-2 TO 30 

510 S-RNDUO) 

520 IF S<8 THEN GOSUB 800 

525 IF S>-8 THEN R-MCI.J-1) 

530 M(I,J)-R 

540 IF R-3 AND J<30 THEN M(I,J+ 

l)-4 

550 IF MU.JJOQ AND M(I.J)<>3 

THEN LINE (J*8 , 1*8) - ( J*8+7 , 1*8+ 

7) ,PRESET,BF;DRAW"8M"+STRSCJ*8) 

+","+STR${I*8)+UC${M(i.J)) 

555 IF M(I.J)-3 AND JOJ0 THEN 

DRAWBM" + STR$(J*8)+" , - + STR5(I*8 

)+UCS(3) + "BM" + £fTRS((J + D*8)+"." 

+STRS(I«8)+UCS<4) 

560 NEXT J.I 

580 GOSUB 7 20 

590 FOR 1-1 TO 8 

600 FOR J-l TO 2:T<I,J)-2:T(I+8 

,J)-2:NEXT J 

610 FOR J-3 TO 4:READ T(I,J):T( 

1+8. J)-T(I.J) :NEXT J 

620 READ MR 

630 FOR J-0 TO 8 STEP 8 

640 T(I+J.5)-MR+RND(2) 

650 T(I+J,6)« (RNDC100)*10)+10 

660 T(I+J, 7)-T(I+J,6) 

670 NEXT J 

680 T(I,6)-15 

690 T(I+8.8)-l 

7 00 NEXT I 

710 RETURN 

A rotina gera una novo niimero alea- 
t6rio, S, para cada elcmento restante da 
matriz. O valor de S, selecionado na li- 
nha 510, varia de 1 a 10. A linha 520 faz 
com que, em 70% das vezes, o novo blo- 
co de terreno scja escolhido ao acaso — 
jH seS<8, oprogramachama a sub- rotina 



de escolha de terreno. Os 30% restan- 
tes serao constituidos de blocos iguais 
aos vizinhos da esquerda. Esse procedi- 
mento tern como objetivo criar grupos 
de blocos no mapa. As linhas que vao 
de 550 a 570 colocam os blocos na tela. 



P0SICI0NAMENT0 DAS TR0PAS 



As posicoes dos combatentes sao ar- 
mazenadas nas matrizes das tropas co- 
mo pares de coordenadas — horizontals 
e verticals. 

Inicialmente, os adversaries ficam 
em extremos opostos da tela. No eam- 
po de Capa e Espada, o jogador come- 
ca no extremo sul (margem inferior do 
mapa), e o computador, no norte (topo 
da tela). 

Portanto, a coordenada vertical ja es- 
ta previamente determinada. 

A coordenada horizontal precisa ser 
selecionada. Assim como para a defini- 
cao do tipo de terreno, e interessante 
que haja um elemento de acaso nessa es- 
colha. Contudo, algumas restricoes de- 
vem ser feitas — precisarnos impedir, 
por exemplo, que duas unidades ocupem 
o mesmo espaco. 

A rotina que listamos a seguir sele- 
ciona a posicio inicial de cada unidade, 
de am bos os lados. Em primeiro Iugar, 
as tropas sao selecionadas ao acaso. De- 
pois, o mapa e dividido verticalmente 
em oito colunas. Cada coluna representa 
os limites dentro dos quais as unidades 
serio colocadas. A posicao definitiva de 
todas elas e, entio, selecionada de acor- 
do com os limites da coluna. 



860 REM Diepoe tropas 

870 INK 2 

880 FOR m-1 TO 2 

890 LET b-1: LET r-1 

900 FOR k-1 TO 8 

910 REM Loop 

920 LET B-FN r(8*m) 

930 IF Tts,9)<>0 THEN GOTO 
910 

940 LET r-FN r(4)+r 

950 LET r»r-INT tr/30) 

960 LET T(a,9)-r 

970 INK D 

980 PRINT AT T (a,8) ,T (a,9) iuS ( 

■) 

990 NEXT k 
1000 NEXT n 
1010 RETURN 



Wfi 



890 S-i:R=l 

900 FOR K-1 TO 8 

920 S-FN R(8*M) 

930 IF T{S.9)O0 THEN 920 

940 R-FN R(4)+R 

950 R-R-INT(R/30) 

960 T(S,9)=R 

980 LOCATE T (S , 9) , T (S . 8} : PRINT 

CHR$(U(S) ) 

990 NEXT K.M 

1010 RETURN 



m© 



860 REM DISTRIBUICAO 

880 FOR M - 1 TO 2 

090 S - 1:R - 1 

900 FOR K - 1 TO 8 

920 S-FN R<8 * M) 

930 IF T{S,9) < > THEN 920 

940 R - FN R{3) + R 

950 R - R - INT (R / 20) 

960 T(S,9) - R 

980 I * T{S,8):X - TCS,9):N " 

UAL ( MIDS CUS.S - (M - 1) * 8, 

1>) + (M-1) * 5: GOSUB 10000 

990 NEXT K.M 

1010 RETURN 



Ei 



860 REM TROPAS 
880 FOR M-1 TO 2 



860 REM DISPOE TROPAS 

870 COLOR 2 

880 FOR M-1 TO 2 

890 S-l :R-1 

900 FOR K-1 TO 8 

910 REM 

920 S-RND(8*M) 

930 IF T(S,9)<>0 THEN 910 

940 R-RND(4)+R 

950 R-R-INT(R/30) 

960 T(S,9)-R 

97 COLOR M:IF M-1 THEN COLOR 3 

980 DRAW"BM"+STR$(T(S,9)*8)+"," 

+STRS(T(S,8)*B> :UU«VAL(MIDS(U$, 

S.D) :AS-UCS(UU> : GOSUB 3000 

990 NEXT K 

1000 NEXT M 

1010 RETURN 

Como as oito unidades sao escolhi- 
das ao acaso, a posicao inicial de cada 
uma varia e, assim, cada novo jogo e di- 
ferente do anterior. 

Os dois ex6rcitos estao armazenados 
em uma s6 matriz. Por isso, a mesma 
rotina pode ser usada para eseolher a 
posicao inicial de todas as tropas, bas- 
tando, apenas, um laco FOR... NEXT 
(linhas 880 e 1000). O laco tambem faz 
com que os dois exercitos aparecam em 
cores diferentes. 



AS ARMAS 



Uma vez determmadas as posicoes 
iniciais das unidades, etas devem ser co- 
locadas no video. 




Capa e Espada' mapa do campo de batalha no Spectrum. 



410 LET US-CHRS 149+CHRS 149+ 
CUBS 150+CHRS 150+CHRS 151+ 
CHR$ 151+CHRS 152+CHRS 152: 
LET US-US+US 



Wi 



410 U{1)-228:U{2)=229:U(3)=230: 
UC4) -230:U(5)-231 :U(6)-231 :U(7) 
-232:U(8)-232 
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410 US = "45667788' 



D 



410 US- "65 778899" :U$-US+U$ 

Na linha 410 definimos urn cordao 
US para armazenar os codigos dos ca- 
racteres que representam cada unidade. 
No caso do MSX, utilizamos uma va- 
riavel indexada U( ). 



M0LDURA 



A tela fica mais bo nit a — e menos 
confusa — se fizermos uma moldura pa- 
ra o campo de batalha. 



720 REM Borda Decorativa 
730 FOR 1=0 TO 16 



740 PRINT AT i.0;CHRS 150; AT i 

,31;CHR$ 150 

750 NEXT i 

760 FOR i-0 TO 31 

770 PRINT AT 0,i;CHRS 150; AT 

16. l;CHRS 150 

760 NEXT i 

790 RETURN 



fffi 



720 HEM BOB DA 

730 FOR 1-0 TO 31 

740 VPOKE BASE (5) +1,246 

750 VPOKE BASE (5) +1+544,246 

760 NEXT I: FOR I=-0 TO 574 STEP 

32 

770 VPOKE BASE (5) +1 . 246 

780 VPOKE BASE (5) +1-1. 246 

790 NEXT I: RETURN 



LfflE] 



720 REM BORDA 
7 30 FOR YY - TO 19 STEP 19 
740 FOR XX ■ 1 TO 20 
750 N - 11:X - XX:Y - YY 
760 X - X * 2 - 2:N - N * 2 : FO 
RW-0T0 1;X^X+W:N=N+ 
U- FOR V = TO 7 
770 POKE T + (Y - B * {Y > 7) 
- 8 * (Y > 15)} * 128 + 40 * (Y 
> 7J + 40 * CY > 15) + X + 102 
4 * V. PEEK (E+N*8+V) -1 
28 

7BO NEXT V,W 
790 NEXT XX, YY: RETURN 

D 

720 REM BORDA 

730 LINE (0.128) -(255, 135) .PRES 

ET.BF 

740 LINE(248.0)- (255,191) , PRESE. 



T,BF:LINE(4,4)-(252,U2) ,PS£T,B 
790 RETURN 

Essa rotina simplesmente desenha, 
repetidas vezes, em torno do mapa, o 
simbolo utilizado para os lanceiros, so 
que em outra cor. 



MOBILIZAQA0 DAS F0RQAS 



Agora que o mapa esta preparado, 
veremos como os jogadores movem suas 
unidades. Toda a mobilizacao decor re 
de ordens — explicadas no prbximo ar- 
tigo. Porem, antes que se possa comple- 
tar o movimento, e preciso definir va- 
rios detalhes do jogo: 

* Distancia maxima, em niimero de po- 
sicoes, que cada unidade pode atingir 
em um s6 movimento. Em Capa e Es- 
pada, a mobilidade de uma unidade de- 
pende apenas do peso de sua armadu- 
ra, mas, em outros jogos, fatores como 
moral, disciplina e cansaco, entre ou- 
tros, podem ser levados em conta. 

• ExistSncia de vantagens e bonus. Em 
nosso programa, os bonus sao dados 
apenas aos cavaleiros. Porem, e" possf- 
vel destina-Ios tambem a unidades que 
realizem determinadas acoes — como 
subir uma ladeira ou transportar carga 
— ou, ainda, que possuam um coman- 
dante muito habilidoso. 

• Obstacnlos ao movimento. O progra- 
mador deve decidir que tipo de influen- 
cia o terreno exerce sobre o movimento 
de tropas. Em nosso caso, todos os ter- 
renos, menos o campo aberto, dimj- 
nuem a distancia maxima em uma uni- 
dade. Tambem e" preciso verificar se hi 
outra unidade no caminho. 

* A borda do mapa foi alcancada? 

Adicione mais esta rotina e o progra- 
ma podera movunentar as tropas levan- 
do em conta todos esses fatores. 



1160 REM 

1170 LET 

9) 

1175 

1180 

N LET 

b,9))) 

1190 LET D^5-T(b,4) 

1200 IF b<3 OR b-9 OR 

LET D-D+2 
1210 LET v=T(b,2) -1 
1215 LET up-0: LET al« 



Move unidade 
ox-TCb.B) : LET oy«t(b, 



LET 2S-"" 

IF n(T(b,8) ,T(b.9))<>0 THE 
iS-CHRS <143+n(T{b,8) ,T( 



b=10 THEN 



•v-2 



1039 



1220 IF v/2-CINT (v/2))-0 THEN 

LET up-v-1: LET a 1-0 
1230 REM Repeticao 
1240 LET nI=T(b,9)+al : LET np=T 

(b.a)+up 

1250 IF np<l THEN LET np=l 

1260 IF np>15 THEN LET np-15 

1270 IF nl<l THEN LET nl = l 

1280 IF nl>30 THEN LET nl = 30 

1290 IF mCnp.nl) >0 THEN LET D- 

D-l 

1300 FOR k-1 TO 8 

J310 IF (T(k r 9)-nl AND T{k,8)=n 

p AND kOb) THEN LET D*>0 

1315 IF <T(k+8,9)=nl AND TCk+8, 

8)-np AND k+BOb) THEN LET D-0 

1320 NEXT k 

1330 IF d>0 THEN LET T(b,9)=nl 

: LET T(b.8)=np: LET D=D~1 

1340 IF DO0 THEN GOTO 1230 

1350 INK 0: PRINT AT ox,oy;zS 

1360 INK el: PRINT AT T(b,8),T( 

b.9) :uS(l) 

1370 RETURN 



fffi 



1160 REM MOVE 

1170 0X-T(B,8) :0Y-T(B,9) 

1175 GH-32 

1180 IF MCT(B,8) ,T{B.9)O0 THEN 

GH-223+M(TCB,8) ,T(B,9)) 
1190 D-5-T(B,4) 
1200 IF B<3 OR B=9 OR B=1Q THEN 

D-D+2 
1210 V-T(B,2)-1 
1215 UP»0:AL-V-2 

1220 IF U/2-(INT(V/2))-0 THEN U 
P-V-l:AL-0 

1240 NI-T(B.9)+ALiNP«T(B,8)+UP 
1250 IF NP<1 THEN NP-1 
1260 IF NP>15 THEN NP-15 
1270 IF KK1 THEN Nl-1 
1280 IF Nl>30 THEN Nl-30 
1290 IF M{NP,N1J>0 THEN D-D-l 
1300 FOB K-1 TO 6 
1310 IF (T(K,9)-N1 AND T(K,B)-N 
P AND KOB) THEN D-0 
1315 IF (TCK+B.9)-N1 AND TCK+8, 
8)-NP AND K+SOB) THEN D»0 
1320 NEXT K 

1330 IF D>0 THEN T (B, 9) -Nl : T{B . 
8) -NP: D-D-l 

1340 IF DO0 THEN 1240 
1350 LOCATE OY.OXrPRINT CHRSCGB 

) ; 

1360 LOCATE T{B,9),TCB i 8):PRINT 

CHR9CUCD+CL) 
1370 RETURN 
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1160 REM MOVE 

1170 OX - T(B,8):OY - T(B,9) 

1175 GH - 14 

1180 IF MCT(B.B) .TCB.9)) < > 

THEN GH - MCTCB.8) ,T(B,9)) - 

1 

1190 D - 5 - T(B,4) 

1200 IF B < 3 OR B - 9 OR B - 

10 THEN D-D+2 

1210 V - T(B,2) - 1 



1215 UP - 0:AL - V - 2 

1220 IF V / 2 - (INT {V / 2) ) 

- THEN UP - V - 1:AL ■ 
1240 Nl - TCB.9) + AL:NP - T(B, 
B) + UP 

1250 IF NP < 1 THEN NP - 1 
1260 IF NP > 18 THEN NP - 18 
1270 IF Nl < THEN Nl-1 
1280 IF Nl > 19 THEN Nl - 20 
1290 IF M(NP,N1) > THEN D - 
D- - 1 

1300 FOE K - 1 TO 8 
1310 IF (T(K,9) = Nl AND TCK.8 
) - NP AND K < > B) THEN D-0 
1315 IF {T(K + 8.9) - Nl AND T 
<K + 8.8) - NP AND K + 8 < > B 
) THEN D-0 
1320 NEXT K 

1330 IF D > THEN TCB.9) - Nl 
:T(B,8) - NP:D - D - 1 
1340 IF D < > THEN 1240 
1350 X - OY:Y - OX:N - GH : GOSU 
B 10000 
1360 X - T(B,9):Y - T(B.8):N = 

VAL ( MIDS (US. I " (I > 8) * 8 
. 1) ) + CI > 8) * 5: GOSUB 10000 
1370 RETURN 
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1160 REM MOVE UNIDADE 

1170 OX-TCB.8) :0Y-T{B,9) 

1175 ZZ-0 

1180 IF M(T(B,8) ,T(B,9))O0 THE 

N ZZ=M(TCB,8) ,T(B,9)) 

1190 D-5-TCB.4) 

1200 IF B<3 OR B-9 OR B-10 THEN 

D=*D+2 
1210 V-T(B.2)-1 
1215 UP=0:AL=V-2 

1220 IF (V/2)-INTCU/2)-0 THEN U 
P-V-l:AL-0 
1230 REM 

1240 NL-T(B,9)+AL:NP-TCB.8)+UP 
1250 IF NP<1 THEN NP-1 
1260 IF NP>15 THEN NP=15 
1270 IF NL<1 THEN NL-1 
1280 IF N>30 THEN NL-30 
1290 IF MCNP,NL)>0 THEN D-D-l 
1300 FOR K-1 TO 8 
1310 IF (T(K,9)-NL AND T{K,8)-N 
P AND KOB) THEN D-0 
1315 IF (T(K+6,9)-NL AND T(K+8, 
8)=NP AND K+SOB) THEN D=0 
1320 NEXT K 

1330 IF D>0 THEN T (B, 9) -NL : T (B . 
8) -NP:D=D-1 

1340 IF DO0 THEN 1230 
1350 X9=OY*8:Y9=OX*8:IF Z2O0 T 
HEN COLOR 4;LINE(X9,Y9)-(X9+7,Y 
9+7) , PRESET, BF: DRAW" BM"+STR$(X9 
)+-, "+STHS(Y9)+UCS(ZZ) ELSE LIN 
E (X9.Y9)-(X9+7, Y9+7) , PRESET, BF 
1360 COLOR CL:DRAWBM"+STRSCT(B 
,9)*8)+"."+STRS0T(B,8) *8) : UU-WA 
L(MIDS(US.I.D) :AS-UCS(UU) :GOSU 
B 3000 
1370 RETURN 

Os testes vao aumentar, reduzir ou 
impedir complctamente a mobilidade 
das tropas. A rotina primeiro "lembra- 




O que a uma simulagao aleat6ria? 

0$ jogos de simulagao geralmervte 
envolvem uma metodologia de calculo 
especffica para a area que esta sendo 
simulada. Na maioria das simulates is- 
so abrange tanto formulas matemdti- 
cas quanto regras de decislo (regras 
heurfsticas). 

Entretanto, o jogo de simulacio fi- 
ca muito previsfvel se nao contiver al- 
gum elemento de probabilidade tou se- 
ja, um sorteio ao acaso realizado para 
uma equagao matematica para uma re- 
gra de decislo). As situagoes passam 
a se repetir exatamente da mesma ma- 
neira frente a um determinado cenjun- 
to de condipfles, 

For isso, e importante usar o gera- 
dor interno de numeros aleatbrios do 
computador {funcdes RAND. RND etc.) 
para sortear ao acaso o camirvho a ser 
seguido ou o valor numerico de algum 
dado de simulapao. 

SSo exemplos do que pode ser ge- 
rado em programas de simulapSo; 

• O nome de uma nave espacial e o de 
seu eomandante. 

• O numero e a diregao das safdas de 
uma carnara secreta em um jogo de 
a venturas. 

• A permanencia do jogador na prisao, 
no Jogo Imobiliario. 



se' ' da posicao anterior e do tipo de ter- 
rene que havia naquela posicao, Em se- 
guida, calcula a direcao e o deslocamen- 
to maximo. 

As linhas 1230 a 1340 formam um la- 
50 que testa cada posicao ao longo da 
trajetdria da unidade, verificando se sao 
ocupadas por tropas ou tipos de terre- 
no que afetam o movimento. De acor- 
do com que esse^co encontrar, o des- 
locamento final 6' calculado. O laco se 
repete ate que a distancia ao ponto de 
destino seja zero, 

Ap6s decidir sobre o deslocamento, 
a rotina coloca o sfmbolo do terrene ori- 
ginal na posicao anterior e desenha a 
tropa na nova posicao. 

As listagens aqui apresentadas ainda 
nao poderao ser complctamente testa- 
das. Como est A, o programa apenas de- 
senha o mapa, sendo interrompido por 
uma mensagem de "falta de dados". 
Com as rotinas do pr6ximo artigo, que 
trata das ordens dadas pelo jogador, es- 
se problema deixara de existir. 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 
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microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



NOVOS LANCAMENTOS, 
N * NOVOS SUCESSOS. 



Howard Fast— 
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A FRATERNIDADE 
DAPEDRA 

David Morrell 

Um grupo secreto, sob 
direcao de um padre 
armado, passa a agir 
contra o terrorismo. 
Mas, sera que violencia 
se combate com mais 
violencia? Eis o dilema 
de Drew, agente da Lei 
envolvido com fatos e 
f iguras do mundo real, 
num livro surpreendente 
do criador de Rambo. 



** 




AVENTUREIROS 
EMILIONARIOS 

Clark Howard 

No romance do Texas, 
a saga da descoberla de 
um poco de petroleo e 
o drama de um casal que 
herda um lote de terra 
aparentemente sem valor 
e enf renta com coragem 
os poderosos do iugar, 
ate veneer. Uma vitoria 
antes de tudo moral, 
numa historia forte e 
envolvente, com realistas 
cenasdeamor. 



CANADA SEM FIM 

Bryan Forbes 

Uma brilhante historia de 
espionagem envolvendo 
a KGB. Por que matar 
uma ex-espia que ja tinha 
sido desmascarada e 
torturada tempos atras? 
Um agente ingles, seu 
antigo amante, enfrenta 
um desafio: descobrir 
por que ela f oi morta . . . 
e por que agora! 



PODER 

Howard Fast 

Um lider sindical com 
a volupia do poder,, 
a luta pelos direitos 
dos trabalhadores, 
has EstadosUnidos, 
e sua manipulacao 
porcorruptos 
e oportunistas; o jogo 
das ambicoes politicas. 
Admiravelmente escrilo, 
um romance a tualissimo 



SUPERSEXO 

Alexandra Penney 

Se nao for o primeiro, 
este vat ser o ultimo 
e definitivo guia para 
o prazer que o lei tor 
podera seguir: um livro 
que derruba mitos, faz 
sugestoes provocantes e 
propoe tecnicas ousadas 
para se chegar ao 
supersexo, uma relacao 
intensa e especial entre 
os casais, que nao 
exclui o romantismo. 



Nao perca tambem: A MISSAO, de Robert Bolt, o livro do filme. 




EDITORA BEST SELLER 





